home *** CD-ROM | disk | FTP | other *** search
/ PC Player Special 1994 #1 / CD-Player 1994-01.iso / demos / elfish / reconfig.prg < prev    next >
Encoding:
Text File  |  1993-03-22  |  5.9 KB  |  261 lines
  1. ; ==============================================
  2. ; ===     ELFISH RECONFIGURATION PROGRAM     ===
  3. ; ==============================================
  4. @prod = "ELFISH"         ; name of the product
  5. @path = ""               ; starting destination subdirectory
  6. @source = "DATA"         ; source subdirectory
  7. @prefix = "XX"           ; DLL-prefix
  8. ; =====================================
  9. #HEADER EL-FISH RECONFIGURATION
  10. #VERSION (C) AnimaTek (RUSSIA) *** 1993
  11. ; =====================================
  12. @PACKMODE = 2         ; starting packing bitmode:
  13.                       ; xx1 - regular VGA
  14.                       ; x1x - HI-resolution SVGA
  15.                       ; 1xx - sound-card support
  16. ; =====================================
  17. #SOUNDTEST
  18. #READDATA b "ELFISH.INS" 6B1
  19. #IF @reply ! 0 GOTO BIG_REZ_TEST
  20.   @PACKMODE += 1;
  21.   @PACKMODE -= 2;
  22.   #GOTO VTEST_DONE
  23.  
  24. :BIG_REZ_TEST
  25. #AIUTO @message
  26. #VIDEOTEST
  27. #IF @reply ! 0 GOTO VTEST_DONE
  28.   @PACKMODE += 1;
  29.   @PACKMODE -= 2;
  30. :VTEST_DONE
  31.  
  32. ; ------------------
  33. :REENTER
  34. #PROMPT "YOUR CHOICE ?"
  35. #AIUTO "KEYS:  - select; 'Enter'-confirm; 'Esc'-abort"
  36.  
  37. ;#IF @PACKMODE & 8 GOTO SND_IS_OFF
  38. #FEXIST "XX_MDR.DLL"
  39. #IF @reply = 0 GOTO SND_IS_OFF
  40.  
  41. ; ---- Menu for Sond is ON
  42. :SND_IS_ON
  43.  
  44. #IF @PACKMODE ^ 2 GOTO SMALL_REZ0
  45.  
  46. ; =====================================
  47. #TEXT 0 3 53
  48.  
  49. ~You have the High resolution version
  50. ~of EL-FISH installed.
  51. ~If you want to install low resolution,
  52. ~you must re-install with original disks.
  53.  
  54. ~Now you may change your sound and
  55. ~high resolution settings by selecting the
  56. ~appropriate choice below:
  57.  
  58. #
  59.  
  60. #MENU 0 -1 27 [ ??? ]
  61.            E X I T
  62.      REMOVE SOUND OPTION
  63.       CHOOSE SOUND CARD
  64.       CHOOSE VIDEO CARD
  65. #
  66. #TEXTOFF
  67. #GOTO CHECK_ANSWER
  68.  
  69. ; =====================================
  70. ;:NO_HIRES
  71. :SMALL_REZ0
  72. #TEXT 0 3 53
  73.  
  74. ~You have the low resolution version
  75. ~of EL-FISH installed.
  76.  
  77. ~If you wish to install high resolution
  78. ~you must re-install with the
  79. ~original disks.
  80.  
  81. ~Now you may change your sound settings
  82. ~by selecting the appropriate choice below:
  83.  
  84. #
  85.  
  86. #MENU 0 -1 25 [ ??? ]
  87.           E X I T
  88.     REMOVE SOUND OPTION
  89.      CHOOSE SOUND CARD
  90. #
  91. #TEXTOFF
  92.  
  93. ; =====================================
  94. :CHECK_ANSWER
  95. ;#IF @reply = 0 #EXIT
  96. #IF @reply < 2 #GOSUB FINISH
  97. #IF @reply = 2 #GOSUB OFF_SOUNDS
  98. #IF @reply = 3 GOTO ENDOF_LOWRES0
  99. #IF @reply = 4 #GOSUB SET_HIRES
  100. #GOTO REENTER
  101. ;------------
  102. :ENDOF_LOWRES0
  103.  #GOSUB SET_SOUND
  104. ; #GOSUB FINISH
  105. #GOTO REENTER
  106.  
  107. ; ---- Menu for Sond is ON
  108. :SND_IS_OFF
  109.  
  110. #IF @PACKMODE ^ 2 GOTO SMALL_REZ1
  111.  
  112. ; =====================================
  113. #TEXT 0 3 53
  114.  
  115. ~You have the High resolution version
  116. ~of EL-FISH installed.
  117. ~If you want to install low resolution,
  118. ~you must re-install with original disks.
  119.  
  120. ~Now you may change your sound and
  121. ~high resolution settings by selecting the
  122. ~appropriate choice below:
  123.  
  124.  
  125. #
  126.  
  127. #MENU 0 -1 27 [ ??? ]
  128.            E X I T
  129.       CHOOSE SOUND CARD
  130.       CHOOSE VIDEO CARD
  131. #
  132. #TEXTOFF
  133. #GOTO CHECK_ANSWER1
  134.  
  135. ; =====================================
  136. ;:NO_HIRES
  137. :SMALL_REZ1
  138. #TEXT 0 3 53
  139.  
  140. ~You have the low resolution version
  141. ~of EL-FISH installed.
  142.  
  143. ~If you wish to install high resolution
  144. ~you must re-install with the
  145. ~original disks.
  146.  
  147. ~Now you may change your sound settings
  148. ~by selecting the appropriate choice below:
  149.  
  150. #
  151.  
  152. #MENU 0 -1 25 [ ??? ]
  153.           E X I T
  154.      CHOOSE SOUND CARD
  155. #
  156. #TEXTOFF
  157.  
  158. ; =====================================
  159. :CHECK_ANSWER1
  160. ;#IF @reply = 0 #EXIT
  161. #IF @reply < 2 #GOSUB FINISH
  162. #IF @reply = 2 GOTO ENDOF_LOWRES1
  163. #IF @reply = 3 #GOSUB SET_HIRES
  164. #GOTO REENTER
  165. ;------------
  166. :ENDOF_LOWRES1
  167.  #GOSUB SET_SOUND
  168. ; #GOSUB FINISH
  169. #GOTO REENTER
  170.  
  171.  
  172. #EXIT
  173.  
  174. ; =====================================
  175. ; ====    S U B R O U T I N E S     ===
  176. ; =====================================
  177. ; ┌─────────────────────────────────────────────────────┐
  178. ; │                                                     │
  179. ; └─────────────────────────────────────────────────────┘
  180. :DONE
  181. ;  #BEEP
  182.   #TEXT |1000 0 0 39
  183.  
  184. ~D O N E
  185.  
  186.   #
  187. #RETURN  ;DONE
  188.  
  189. ; ┌─────────────────────────────────────────────────────┐
  190. ; │                                                     │
  191. ; └─────────────────────────────────────────────────────┘
  192. :SOUND_INACTIVE
  193.   #BEEP
  194.   #TEXT |1500 0 0 39
  195.  
  196. ~SORRY !
  197. ~NO SOUND CARD
  198. ~DETECTED ON YOUR COMPUTER
  199.  
  200.   #
  201. #RETURN  ;SOUND_INACTIVE
  202.  
  203. ; ┌─────────────────────────────────────────────────────┐
  204. ; │                                                     │
  205. ; └─────────────────────────────────────────────────────┘
  206. :SET_SOUND
  207.   #PROMPT SOUND DRIVER CONFIGURATION
  208.   #SOUNDTEST
  209.   #SOUNDCARD ^ SYSTEM
  210.   #IF @reply = 0 GOTO SOUND_NOT_SET
  211. ;    @SOUND -= 512;
  212.     #IF @SOUND ! 0 #GOSUB DONE
  213.     #IF @SOUND = 0 #GOSUB SOUND_INACTIVE
  214.     @PACKMODE -= 8
  215. :SOUND_NOT_SET
  216.   @reply = 0;
  217. #RETURN  ;SET_SOUND
  218.  
  219. ; ┌─────────────────────────────────────────────────────┐
  220. ; │                                                     │
  221. ; └─────────────────────────────────────────────────────┘
  222. :SET_HIRES
  223.   #PROMPT VIDEO-MODE CONFIGURATION
  224.   #VIDEOTEST
  225.   #IF @reply = 1 GOTO video_choice
  226.   #PROMPT Choose your video-card or compatible
  227.   #AIUTO KEYS: -select; 'Enter'-confirm; 'Esc'-autodetect
  228.   :video_choice
  229.  
  230.   #VIDEOCARD
  231.   #SETUP "ELFISH.INS"   ; write the ELFISH.INS user name
  232.   #IF @reply ! 0 #GOSUB DONE
  233.   @reply = 0;
  234. #RETURN  ;SET_HIRES
  235.  
  236. ; ┌─────────────────────────────────────────────────────┐
  237. ; │                                                     │
  238. ; └─────────────────────────────────────────────────────┘
  239. :OFF_SOUNDS
  240.   #DELETE "XX_MDR.DLL"
  241.   @PACKMODE += 8
  242.   #GOSUB DONE
  243. #RETURN  ;OFF_SOUNDS
  244.  
  245. ; ┌─────────────────────────────────────────────────────┐
  246. ; │                                                     │
  247. ; └─────────────────────────────────────────────────────┘
  248. :FINISH
  249.   #BEEP
  250.   #TEXT |800 0 0 37 [ GOOD BYE ]
  251.  
  252. ~RECONFIGURATION IS FINISHED
  253.  
  254.   #
  255.  
  256.   #EXIT
  257. #RETURN  ;FINISH
  258.  
  259. ; ==============================================
  260. #END
  261.